home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 13 / CU Amiga Magazine's Super CD-ROM 13 (1997)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1997-08].iso / CUCD / Graphics / Ghostscript / data / pdf_draw.ps < prev    next >
Text File  |  1997-04-12  |  8KB  |  315 lines
  1. %    Copyright (C) 1994, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_draw.ps
  19. % PDF drawing operations (graphics, text, and images).
  20.  
  21. % We don't handle the following PDF elements yet (identified by
  22. % page number in the reference manual):
  23. %    style strings (63-64), except in a few known fonts
  24. %    font descriptor resources (71-75), except for MissingWidth
  25. %    text clipping modes (104)
  26. %        What do these mean??
  27.  
  28. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  29. .currentglobal true .setglobal
  30. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  31. GS_PDF_ProcSet begin
  32. pdfdict begin
  33.  
  34. % For simplicity, we use a single interpretation dictionary for all
  35. % PDF graphics operations, even though this is too liberal.
  36. /drawopdict 100 dict def
  37.  
  38. % ================================ Graphics ================================ %
  39.  
  40. % ---------------- Graphics state management ---------------- %
  41.  
  42. drawopdict begin
  43.             % Graphics state stack
  44.   /q { q } def
  45.   /Q { Q } def
  46.             % Graphics state setting
  47.   /cm { cm } def
  48.   /i { i } def
  49.   /J { J } def
  50.   /d { d } def
  51.   /j { j } def
  52.   /w { w } def
  53.   /M { M } def
  54. end
  55.  
  56. % ---------------- Color setting ---------------- %
  57.  
  58. /csgray            % <op> <csop> csgray -
  59.  { Page /Resources pget
  60.     { /ColorSpace knownoget
  61.        { /DefaultGray knownoget { 3 -1 roll exch 3 1 roll } if }
  62.       if
  63.     }
  64.    if pop cvx exec
  65.  } bdef
  66. /csrgb            % <op> <csop> csrgb -
  67.  { Page /Resources pget
  68.     { /ColorSpace knownoget
  69.        { /DefaultRGB knownoget { 3 -1 roll exch 3 1 roll } if }
  70.       if
  71.     }
  72.    if pop cvx exec
  73.  } bdef
  74. /cscmyk            % <op> <csop> cscmyk -
  75.  { pop cvx exec
  76.  } bdef
  77. /csresolve        % <csresource> csresolve <colorspace>
  78.  { Page /Resources pget not { 0 dict } if
  79.    /ColorSpace oget exch oget resolvecolorspace
  80.    dup type /nametype ne { dup length 1 eq { 0 get } if } if
  81.  } bdef
  82. /cset        % <c0> ... [- <sc1> - <sc3> <sc4>] <colorspace> cset -
  83.  { gsave setcolorspace mark currentcolor counttomark
  84.    grestore dup 2 add 1 roll cleartomark get exec
  85.  } bdef
  86.  
  87. %**************** sc and SC don't work, because the color space information
  88. %**************** isn't available at conversion time.
  89. drawopdict begin
  90.   /g { /g { cs sc1 } csgray } bdef
  91.   /rg { /rg { cs sc3 } csrgb } bdef
  92.   /k { /k { cs sc4 } cscmyk } bdef
  93.   /cs { csresolve cs } bdef
  94.   /sc { { null sc1 null sc3 sc4 } FillColorSpace cset } bdef
  95.   /G { /G { CS SC1 } csgray } bdef
  96.   /RG { /RG { CS SC3 } csrgb } bdef
  97.   /K { /K { CS SC4 } cscmyk } bdef
  98.   /CS { csresolve CS } bdef
  99.   /SC { { null SC1 null SC3 SC4 } StrokeColorSpace cset } bdef
  100. end
  101.  
  102. % ---------------- Paths ---------------- %
  103.  
  104. drawopdict begin
  105.             % Path construction
  106.   /m { m } def
  107.   /l { l } def
  108.   /c { c } def
  109.   /v { v } def
  110.   /y { y } def
  111.   /re { re } def
  112.   /h { h } def
  113.             % Path painting and clipping
  114.   /n { n } def
  115.   /S { S } def
  116.   /s { s } def
  117.   /f { f } def
  118.   /f* { f* } def
  119.   /B { B } def
  120.   /b { b } def
  121.   /B* { B* } def
  122.   /b* { b* } def
  123.   /W { W } def
  124.   /W* { W* } def
  125. end
  126.  
  127. % ---------------- XObjects ---------------- %
  128.  
  129. /xobjectprocs mark        % <dict> -proc- -
  130.   /Image { DoImage }
  131.   /Form { DoForm }
  132. .dicttomark readonly def
  133.  
  134. /ncompdict mark
  135.   /DeviceGray 1
  136.   /CalGray 1
  137.   /DeviceRGB 3
  138.   /CalRGB 3
  139.   /Lab 3
  140.   /DeviceCMYK 4
  141.   /CalCMYK 4
  142. .dicttomark readonly def
  143. /defaultdecodedict mark
  144.   /DeviceGray [0 1] readonly
  145.   /CalGray 1 index
  146.   /DeviceRGB [0 1 0 1 0 1] readonly
  147.   /CalRGB 1 index
  148.   /Lab
  149.    { 0 100 2 index 1 get /Range .knownget not { {-100 100 -100 100} } if
  150.      aload pop 6 array astore readonly
  151.    } bind
  152.   /DeviceCMYK [0 1 0 1 0 1 0 1] readonly
  153.   /CalCMYK 1 index
  154. .dicttomark readonly def
  155. /resolvecolorspace    % <cspace> resolvecolorspace <cspace>
  156.  { dup type /arraytype eq
  157.     { dup 0 get /Indexed eq
  158.        { dup 3 oget dup type /stringtype eq
  159.       { pop
  160.       }
  161.       {    % The color lookup table is a stream.
  162.         % Get its contents.
  163.         true resolvestream
  164.         1 index 2 get 1 add
  165.         ncompdict 3 index 1 get get mul
  166.         string readstring pop
  167.         1 index 3 3 -1 roll put
  168.       }
  169.      ifelse
  170.        }
  171.       if
  172.     }
  173.    if
  174.  } bdef
  175. /DoImage
  176.  { dup length dict
  177.    1 index /ColorSpace knownoget
  178.     { resolvecolorspace
  179.       dup type /arraytype eq { dup length 1 eq { 0 get } if } if
  180.       exch begin /ColorSpace exch def
  181.     }
  182.     { begin
  183.     }
  184.    ifelse
  185.    /ImageType 1 def
  186.         % Always define ImageMask appropriately.
  187.    dup /ImageMask knownoget dup { and } if
  188.      /ImageMask exch def
  189.    /Width 2 copy oget def
  190.    /Height 2 copy oget def
  191.    /BitsPerComponent 2 copy oget def
  192.    /Decode 2 copy knownoget not
  193.     {        % Decode is required for the PostScript image operators.
  194.       ImageMask
  195.        { [0 1]
  196.        }
  197.        { ColorSpace dup type /arraytype eq { 0 get } if dup /Indexed eq
  198.       { pop [ 0 1 BitsPerComponent bitshift 1 sub ] }
  199.       { defaultdecodedict exch get exec }
  200.      ifelse
  201.        }
  202.       ifelse
  203.     }
  204.    if def
  205.    /Interpolate 2 copy knownoget { def } { pop } ifelse
  206.    /ImageMatrix Width 0 0 Height neg 0 Height 6 array astore def
  207.         % Define DataSource as the width of the row buffer,
  208.         % which is what is needed if we're writing PostScript.
  209.    /DataSource 
  210.      Width BitsPerComponent mul
  211.      ImageMask not { Decode length 2 idiv mul } if
  212.      7 add 8 idiv
  213.    def
  214.         % Even though we're going to read data,
  215.         % pass false to resolvestream so that
  216.         % it doesn't try to use Length (which may not be present).
  217.    false resolvestream /Is_stream exch store
  218.    currentdict end ID
  219.  } bdef
  220. % Redefine Is, which constructs the data source for the image,
  221. % to retrieve the stream.  (pdf_2ps.ps redefines Is to copy the data too.)
  222. userdict /Is_stream null put
  223. /Is        % <imagedict> Is <imagedict> <datasource>
  224.  { Is_stream
  225.  } bdef
  226.  
  227. /DoForm
  228.  { dup [ /pop load 2 index
  229.     { false resolvestream pdfopdict .pdfrun }
  230.    aload pop ] cvx /PaintProc exch put
  231.    execform
  232.  } bdef
  233.  
  234. drawopdict begin
  235.   /Do
  236.     { PDFfile fileposition exch
  237.       Page /Resources pget not { 0 dict } if
  238.       /XObject oget exch oget
  239.       dup /Subtype get xobjectprocs exch get exec
  240.       PDFfile exch setfileposition
  241.     } bdef
  242. end
  243.  
  244. % ---------------- In-line images ---------------- %
  245.  
  246. % Undo the abbreviations in an in-line image dictionary.
  247. % Note that these can appear as keys, values, or members of array values.
  248. % /I is ambiguous; we check specially for it below.
  249. /unabbrevdict mark
  250.     % Top-level dictionary keys
  251.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  252.   /F /Filter  /H /Height  /IM /ImageMask  /W /Width
  253.     % Values
  254.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  255.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  256.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /G /DeviceGray  /RGB /DeviceRGB
  257.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  258. .dicttomark readonly def
  259. /unabbrev        % <obj> unabbrev <obj'>
  260.  { dup type /nametype eq
  261.     { unabbrevdict 1 index .knownget { exch pop } if
  262.     }
  263.     { dup type /arraytype eq
  264.        { dup 0 1 2 index length 1 sub
  265.       { 2 copy get unabbrev put dup
  266.       }
  267.      for pop
  268.        }
  269.       if
  270.     }
  271.    ifelse
  272.  } bdef
  273.  
  274. drawopdict begin
  275.   /BI { mark } bdef
  276.   /ID
  277.     { counttomark
  278.        { counttomark 1 roll
  279.      dup /I eq { pop /Interpolate } { unabbrev } ifelse
  280.        }
  281.       repeat
  282.       /File PDFsource
  283.       .dicttomark DoImage
  284.       PDFsource token pop /EI ne { /ID cvx /syntaxerror signalerror } if
  285.     } bdef
  286. end
  287.  
  288. % ================================ Text ================================ %
  289.  
  290. drawopdict begin
  291.             % Text control
  292.   /BT { BT } def
  293.   /ET { ET } def
  294.   /Tc { Tc } def
  295.   /TL { TL } def
  296.   /Tr { Tr } def
  297.   /Ts { Ts } def
  298.   /Tw { Tw } def
  299.   /Tz { Tz } def
  300.             % Text positioning
  301.   /Td { Td } def
  302.   /TD { TD } def
  303.   /Tm { Tm } def
  304.   /T* { T* } def
  305.             % Text painting
  306.   /Tj { Tj } def
  307.   /' { ' } def
  308.   /" { " } def
  309.   /TJ { mark exch aload pop TJ } def
  310. end
  311.  
  312. end            % pdfdict
  313. end            % GS_PDF_ProcSet
  314. .setglobal
  315.